home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 April / Macworld (1999-04).dmg / Cool Specials / Al Morale Demo / Al's Stuff / D200.DCR / 00157_1 Butt.ls < prev    next >
Encoding:
Text File  |  1999-02-16  |  448 b   |  26 lines
  1. on mouseDown
  2.   global gFSpecial
  3.   puppetSprite(8, 1)
  4.   if the optionDown then
  5.     set gFSpecial to "F200"
  6.   else
  7.     set gFSpecial to EMPTY
  8.   end if
  9.   set the memberNum of sprite 8 to 173
  10.   set the ink of sprite 8 to 0
  11.   updateStage()
  12.   repeat while the stillDown
  13.   end repeat
  14. end
  15.  
  16. on mouseUp
  17.   global gFSpecial
  18.   puppetSprite(8, 0)
  19.   if gFSpecial <> "F200" then
  20.     PlayFlat()
  21.   else
  22.     set name to string(gFSpecial)
  23.     go(1, name)
  24.   end if
  25. end
  26.